home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_144 / analyticalc / analykeypad.arc / AKFA.CMD < prev    next >
OS/2 REXX Batch file  |  1987-11-04  |  591b  |  35 lines
  1. /#
  2. //
  3. RM
  4. %4H      %*%%
  5. *C COPY ROW OF DATA
  6. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  7. TE *U HERE
  8. TE T-1.\R=%
  9. TE U-2.\S=%
  10. %qGive Start Cell of Row>%L %\
  11. TE *U HERE
  12. TE T-1.\B=%
  13. TE U-2.\C=%
  14. %Give End Cell of Row>%L %\
  15. TE *U HERE
  16. TE T-1.\D=%
  17. TE U-2.\E=%
  18. %Give Bottom Left of Left Column>%L %\
  19. TE *U HERE
  20. TE T-1.\F=%
  21. TE U-2.\G=%
  22. L A1
  23. TE G-C+1.\H=%
  24. TE B+1.\I=%
  25. *C MOVE INNER LOOP TO INSIDE A CELL FOR SPEED
  26. CA A1 A0
  27. EV J=C+1.\*U XQTCM CR P#%BC:P#%DE P#%BJ:P#%DJ\C=J\E=E+1.\H=H-1.\<
  28. R
  29. CA A0 A1
  30. *C SHOULD BE DONE HERE. EXIT.
  31. L A1
  32. L P#%RS
  33. RF
  34. /#
  35.